home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / sh9301b.lha / BASIC-Libaries(S.44) / FD2LVO (.txt) next >
AmigaBASIC Source Code  |  1993-01-12  |  625b  |  24 lines
  1. INPUT "Name der lib.fd Datei ein (mit Pfad bitte) ";dat1$
  2. INPUT "Name der zu erzeugenden Include-Datei ein  ";dat2$
  3. OPEN dat1$ FOR INPUT AS #1
  4. OPEN dat2$ FOR OUTPUT AS #2
  5. WHILE NOT EOF(1)
  6.    LINE INPUT #1,a$
  7.    IF LEFT$(a$,2) = "##" THEN Command
  8.    IF LEFT$(a$,1) = "*" THEN Weiter
  9.    z = 1
  10.    WHILE MID$(a$,z,1) <> "(":z = z+1:WEND
  11.    z = z-1:a$ = LEFT$(a$,z)
  12.    a$ = "_LVO"+a$+STRING$(INT((32-z)/8),9)+"EQU"+CHR$(9)+STR$(wert):wert = wert-6:PRINT a$
  13.    PRINT #2,a$
  14.    Weiter:
  15. WEND
  16. CLOSE #1
  17. CLOSE #2
  18. KILL dat2$+".info"
  19. END
  20.  
  21. Command:
  22. IF UCASE$(MID$(a$,3,4)) = "BIAS" THEN wert = VAL(MID$(a$,8,LEN(a$)-7)):wert = -wert
  23. GOTO Weiter
  24.